home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXGRAPH.PRG < prev    next >
Text File  |  1991-07-22  |  1KB  |  57 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXGRAPH.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. returncode = txinit()
  12. returncode = txreset()
  13.  
  14. _company   = "Texas Associated Software"
  15. _units     = "Units Shipped in Thousands"
  16. _1stqtr    = 19
  17. _2ndqtr    = 23
  18. _3rdqtr    = 15
  19. _4thqtr    = 30
  20.  
  21. txorient("L")         && Set orientation to Landscape
  22.  
  23. txcolbox(01, 01, 105, 45, 1,  0, 5)
  24. txcolbox(43, 01, 105, 03, 1,  5, 5)
  25.  
  26. txcolprint(43, 08, .T., "1st Qtr 1990")
  27. txcolprint(43, 33, .T., "2nd Qtr 1990")
  28. txcolprint(43, 58, .T., "3rd Qtr 1990")
  29. txcolprint(43, 83, .T., "4th Qtr 1990")
  30. txcolprint(45, 41, .T., _units)
  31. txcolprint(02, 41, .T., _company)
  32.  
  33. txcolprint(33, 01, .T., "10")
  34. txcolprint(23, 01, .T., "20")
  35. txcolprint(13, 01, .T., "30")
  36. txcolprint(03, 01, .T., "40")
  37.  
  38. FOR I = 2100 TO 0 STEP -496
  39.    txdothline( I, 01, 3150, 1)  && draw horizontal thousands lines
  40. NEXT
  41.  
  42. _col = 43 - _1stqtr
  43. txpatternbar(_col, 10, 10, _1stqtr, 1, .T.)
  44.  
  45. _col = 43 - _2ndqtr
  46. txpatternbar(_col, 35, 10, _2ndqtr, 3, .T.)
  47.  
  48. _col = 43 - _3rdqtr
  49. txpatternbar(_col, 60, 10, _3rdqtr, 2, .T.)
  50.  
  51. _col = 43 - _4thqtr
  52. txpatternbar(_col, 85, 10, _4thqtr, 4, .T.)
  53.  
  54. returncode = txclear()
  55.  
  56. *: EOF: TXGRAPH.PRG
  57.